From 8c50e2d5c05cfffa52a8f0462cee2da4ac4c97bc Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Mon, 22 Mar 2004 04:41:48 +0000 Subject: [PATCH] (format-insert-file): Always return a list of two elements, like insert-file-contents does. --- lisp/format.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/format.el b/lisp/format.el index 90047e98a6c..09d3e5fa715 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -416,7 +416,7 @@ The optional third and fourth arguments BEG and END specify the part of the file to read. The return value is like the value of `insert-file-contents': -a list (ABSOLUTE-FILE-NAME . SIZE)." +a list (ABSOLUTE-FILE-NAME SIZE)." (interactive ;; Same interactive spec as write-file, plus format question. (let* ((file (read-file-name "Find file: ")) @@ -429,7 +429,7 @@ a list (ABSOLUTE-FILE-NAME . SIZE)." (setq size (nth 1 value))) (if format (setq size (format-decode format size) - value (cons (car value) size))) + value (list (car value) size))) value)) (defun format-read (&optional prompt) -- 2.30.2